/ Risc World 3 / Risc World 3.iso / SOFTWARE / ISSUE4 / POWERBASE / USERFUNCS / Date8

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 01 17 dd 20 a4 55 | 64 61 74 65 38 28 64 25 |..... .U|date8(d%|
|00000010| 2c 6d 25 2c 79 25 29 0d | 00 02 0f 20 f4 20 2d 2d |,m%,y%).|... . --|
|00000020| 2d 20 76 2e 30 31 0d 00 | 03 43 20 f4 20 2d 2d 2d |- v.01..|.C . ---|
|00000030| 20 52 65 74 75 72 6e 73 | 20 61 20 73 74 72 69 6e | Returns| a strin|
|00000040| 67 20 28 44 44 2d 4d 4d | 2d 59 59 29 20 66 72 6f |g (DD-MM|-YY) fro|
|00000050| 6d 20 74 68 65 20 64 61 | 79 2c 20 6d 6f 6e 74 68 |m the da|y, month|
|00000060| 20 61 6e 64 20 79 65 61 | 72 0d 00 04 3a 20 f4 20 | and yea|r...: . |
|00000070| 20 20 20 20 69 6e 74 65 | 67 65 72 20 70 61 72 61 |    inte|ger para|
|00000080| 6d 65 74 65 72 73 20 64 | 25 2c 20 6d 25 2c 20 61 |meters d|%, m%, a|
|00000090| 6e 64 20 79 25 20 72 65 | 73 70 65 63 74 69 76 65 |nd y% re|spective|
|000000a0| 6c 79 2e 0d 00 05 4a 20 | f4 20 20 20 20 20 52 65 |ly....J |.     Re|
|000000b0| 74 75 72 6e 73 20 6e 75 | 6c 6c 20 73 74 72 69 6e |turns nu|ll strin|
|000000c0| 67 20 69 66 20 61 6e 79 | 20 70 61 72 61 6d 65 74 |g if any| paramet|
|000000d0| 65 72 20 3d 20 30 20 28 | 6f 72 20 69 73 20 61 6e |er = 0 (|or is an|
|000000e0| 20 65 6d 70 74 79 20 66 | 69 65 6c 64 29 0d 00 06 | empty f|ield)...|
|000000f0| 20 20 ea 20 64 61 74 65 | 24 2c 64 24 2c 6d 24 2c |  . date|$,d$,m$,|
|00000100| 79 24 20 3a 20 64 61 74 | 65 24 3d 22 22 0d 00 07 |y$ : dat|e$=""...|
|00000110| 34 20 e7 20 64 25 3e 30 | 20 80 20 64 25 3c 33 32 |4 . d%>0| . d%<32|
|00000120| 20 80 20 6d 25 3e 30 20 | 80 20 6d 25 3c 31 33 20 | . m%>0 |. m%<13 |
|00000130| 80 20 79 25 3e 30 20 80 | 20 79 25 3c 31 30 30 20 |. y%>0 .| y%<100 |
|00000140| 8c 0d 00 08 21 20 20 20 | 64 24 3d c3 28 64 25 29 |....!   |d$=.(d%)|
|00000150| 3a 6d 24 3d c3 28 6d 25 | 29 3a 79 24 3d c3 28 79 |:m$=.(m%|):y$=.(y|
|00000160| 25 29 0d 00 09 18 20 20 | 20 e7 20 64 25 3c 31 30 |%)....  | . d%<10|
|00000170| 20 64 24 3d 22 30 22 2b | 64 24 0d 00 0a 18 20 20 | d$="0"+|d$....  |
|00000180| 20 e7 20 6d 25 3c 31 30 | 20 6d 24 3d 22 30 22 2b | . m%<10| m$="0"+|
|00000190| 6d 24 0d 00 0b 18 20 20 | 20 e7 20 79 25 3c 31 30 |m$....  | . y%<10|
|000001a0| 20 79 24 3d 22 30 22 2b | 79 24 0d 00 0c 1d 20 20 | y$="0"+|y$....  |
|000001b0| 20 64 61 74 65 24 3d 64 | 24 2b 22 2d 22 2b 6d 24 | date$=d|$+"-"+m$|
|000001c0| 2b 22 2d 22 2b 79 24 0d | 00 0d 06 20 cd 0d 00 0e |+"-"+y$.|... ....|
|000001d0| 0a 3d 64 61 74 65 24 0d | ff                      |.=date$.|.       |
+--------+-------------------------+-------------------------+--------+--------+